#!/usr/bin/perl
open(FILEIN,"p96.bal");
# on ouvre le fichier qu'on va lire : ici, c'est p96.bal
open(FILEOUT, ">p96-bal-format-HTML.html");
print FILEOUT "\n";
print FILEOUT "
Corpus p96.bal au format html\n";
print FILEOUT "\n";
print FILEOUT "Corpus p96.bal au format html
\n";
print FILEOUT "\n";
while ($ligne = ){
$ligne=~s//>/gi;
print FILEOUT " $ligne |
"
}
print FILEOUT "
\n";
print FILEOUT "\n";
print FILEOUT "\n";
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie